;redcode-icws
;name Cannonade
;author Paul Kline
;strategy stone completes a near-mod-5 bombing run and does a core-clear
;strategy gate-busting imp-spiral is backup in case stone is busted
;assert CORESIZE==8192

impsize2	equ 2731
impsize1	equ 2732
offset1	equ (1833-impsize2)
offset2	equ (offset1+15)
offset3	equ (offset1+15+2)
decst	equ (400-(start*57))
stinc	equ 161
start	mov imp1,imp1+offset2+5
	mov imp1,<start
	mov imp1,<start
	mov imp1,<start
	mov imp1,<start
	mov imp1,<start
	mov imp2,imp1+offset1+impsize2
	mov <copystf,copystf-751
	mov <copystf,<copystt
	mov <copystf,<copystt
	mov <copystf,<copystt
	spl @copystt,<decst
	mov <copystf,<copystt
	spl lnch1,<decst
	spl lnch3,<decst

lnch2	spl lnch2b,<decst
lnch2a	spl lnch2ab,<decst
lnch2aa	spl 2,<decst
	jmp imp1+offset2+(impsize1*0),<decst
	jmp imp1+offset2+(impsize1*1),<decst
lnch2ab	spl 2,<decst
	jmp imp1+offset2+(impsize1*2),<decst
	jmp imp1+offset2+(impsize1*3),<decst
lnch2b	spl lnch2bb,<decst
lnch2ba	spl 2,<decst
	jmp imp1+offset2+(impsize1*4),<decst
	jmp imp1+offset2+(impsize1*5),<decst
lnch2bb	spl 2,<decst
	jmp imp1+offset2+(impsize1*6),<decst
	jmp imp1+offset2+(impsize1*7),<decst

lnch3	spl lnch3b,<decst
lnch3a	spl lnch3ab,<decst
lnch3aa	spl 2,<decst
	jmp imp1+offset3+(impsize1*0),<decst
	jmp imp1+offset3+(impsize1*1),<decst
lnch3ab	spl 2,<decst
	jmp imp1+offset3+(impsize1*2),<decst
	jmp imp1+offset3+(impsize1*3),<decst
lnch3b	spl lnch3bb,<decst
lnch3ba	spl 2,<decst
	jmp imp1+offset3+(impsize1*4),<decst
	jmp imp1+offset3+(impsize1*5),<decst
lnch3bb	spl 2,<decst
	jmp imp1+offset3+(impsize1*6),<decst
	jmp imp1+offset3+(impsize1*7),<decst

lnch1	spl lnch1b, <decst
lnch1a	spl lnch1ab, <decst
lnch1aa	spl 2, <decst
	jmp imp1+offset1+(impsize2*1),<decst
	jmp imp1+offset1+(impsize2*2),<decst
lnch1ab	spl 2, <decst
	jmp imp1+offset1+(impsize2*3),<decst
	jmp imp1+offset1+(impsize2*4),<decst
lnch1b	spl lnch1bb,<decst
lnch1ba	spl 2,<decst
	jmp imp1+offset1+(impsize2*5),<decst
	jmp imp1+offset1+(impsize2*6),<decst
lnch1bb	spl 2,<decst
	jmp imp1+offset1+(impsize2*7),<decst
	jmp imp1+offset1+(impsize2*8),<decst

imp2	mov 0,impsize2
imp1	mov 0,impsize1

stone	mov <stspl+5-(stinc*610),stspl+(stinc*610)
stspl	spl -1,<5143+1
stadd	add 3,stone
	djn -2,<stspl+5143+1
inc	mov stinc,<-stinc
copystf	dat #0
copystt	dat #copystf-752
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	mov 0,2731
	end start